home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / 2darray_test.e < prev    next >
Text File  |  1995-06-21  |  527b  |  23 lines
  1. MODULE 'oomodules/2darray'
  2.  
  3. PROC main() HANDLE
  4.     DEF myarray:PTR TO dd_array
  5.     DEF i,j,val=1,sx,sy
  6.     NEW myarray.create(4,5,CHARS)
  7.     sx,sy:=myarray.size()
  8.     FOR i:=0 TO sx
  9.         FOR j:=0 TO sy
  10.             myarray.set(i,j,val++)
  11.             ENDFOR
  12.         ENDFOR
  13.     FOR i:=0 TO sx
  14.         FOR j:=0 TO sy
  15.             WriteF('myarray [\d,\d]=\d\n',i,j,myarray.get(i,j))
  16.             ENDFOR
  17.         ENDFOR
  18.     END myarray
  19. EXCEPT
  20.     IF exceptioninfo THEN WriteF('\d\n',exceptioninfo)
  21.     CleanUp(exceptioninfo)
  22. ENDPROC
  23.